
(time->date (current-time)) 		; => DATE-OBJECT

(time->date 
 (current-time time-tai))		; => DATE-OBJECT

(time->date 
 (current-time time-monotonic))		; => DATE-OBJECT

(iso-8601-string 
 (current-time))			; => "2003-01-24T20:45:38"

(iso-8601-string 
 (current-date))			; => "2003-01-24T21:00:04"

(let ((n (* 1024 64)))
  (timeP
   utc
   (lambda ()
     (fold + 0 (map * (iota n) (iota n))))))

;; => (0.9999120235443115 . 93822844764160)

(time->real (make-time time-utc 1234 5678))

;; => 5678.000001234, 2839000000617/500000000

(let ((t (real->time 
	  5678.000001234)))
  (cons (time-second t)
	(time-nanosecond t)))		; => (5678 . 1233)

(time->real 
 (current-time))			; => 1043417094.00994

(time->real
 (real->time 
  (time->real 
   (current-time))))			; => 1043417113.00086

(map 
 time-interval->minutes+seconds
 (iota 38 0 74))

(time-interval->minutes+seconds
 (minutes+seconds->time-interval '(5 43))) ; => (5 43)

(minutes+seconds-sum '(1 32) '(2 6) '(3 1)) ; => (6 39)


